home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / T / TextImporter1.1.cpt / TextImporter1.1 / background_2736.txt < prev    next >
Text File  |  1987-09-12  |  10KB  |  479 lines
  1. -- background: 2736 from stack: in.1
  2. -- bmap block id: 2371
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7.  
  8.  
  9.  
  10.  
  11.  
  12. -- part 3 (field)
  13. -- low flags: 00
  14. -- high flags: 0007
  15. -- rect: left=1 top=32 right=328 bottom=510
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 0
  19. -- font id: 4
  20. -- text size: 9
  21. -- style flags: 0
  22. -- line height: 12
  23. -- part name: Import Text
  24.  
  25.  
  26. -- part 5 (button)
  27. -- low flags: 00
  28. -- high flags: A003
  29. -- rect: left=73 top=1 right=18 bottom=139
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Open...
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   Get FileName("TEXT")
  41.   if it is empty then
  42.     exit mouseUp
  43.   else
  44.     put it into temp
  45.     put it into background field "fname"
  46.   end if
  47.   open file temp
  48.   read from file temp for 32768
  49.   put it into infile
  50.   if it is empty
  51.   then close file temp
  52.   close file temp
  53.   put infile into background field "Import Text"
  54. end mouseUp
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62. -- part 8 (button)
  63. -- low flags: 00
  64. -- high flags: A003
  65. -- rect: left=2 top=1 right=18 bottom=73
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: New
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   put untitled into background field "fname"
  77.   put empty into background field "Import Text"
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 9 (button)
  83. -- low flags: 00
  84. -- high flags: A003
  85. -- rect: left=139 top=1 right=18 bottom=200
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Save
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   if background field "fname" is "untitled" then
  97.     put empty into background field "TextFileName"
  98.     show background field "SaveDialogBox"
  99.     show background field "TextFileName"
  100.     show background button "OK"
  101.     show background button "Cancel"
  102.   else
  103.     put background field "fname" into save
  104.     open file save
  105.     write background field "Import Text" to file save
  106.     close file save
  107.   end if
  108. end mouseUp
  109.  
  110.  
  111. -- part 10 (button)
  112. -- low flags: 00
  113. -- high flags: A003
  114. -- rect: left=273 top=1 right=18 bottom=333
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Print
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   doMenu Print Report...
  126. end mouseUp
  127.  
  128.  
  129.  
  130. -- part 13 (button)
  131. -- low flags: 00
  132. -- high flags: 2000
  133. -- rect: left=410 top=0 right=19 bottom=437
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 21700 / 21700
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: Home
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   put empty into background field "Import Text"
  145.   doMenu Compact Stack
  146.   go home
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 15 (field)
  152. -- low flags: 01
  153. -- high flags: 0001
  154. -- rect: left=2 top=328 right=340 bottom=434
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 0
  158. -- font id: 4
  159. -- text size: 9
  160. -- style flags: 0
  161. -- line height: 12
  162. -- part name: Date
  163.  
  164.  
  165. -- part 16 (field)
  166. -- low flags: 01
  167. -- high flags: 0001
  168. -- rect: left=434 top=328 right=340 bottom=510
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 65535
  172. -- font id: 4
  173. -- text size: 9
  174. -- style flags: 0
  175. -- line height: 12
  176. -- part name: Time
  177.  
  178.  
  179. -- part 17 (button)
  180. -- low flags: 00
  181. -- high flags: A003
  182. -- rect: left=333 top=1 right=18 bottom=390
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: Find...
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   doMenu Find...
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 18 (button)
  199. -- low flags: 00
  200. -- high flags: 2000
  201. -- rect: left=392 top=2 right=22 bottom=411
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 19678 / 19678
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: About
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   show background field "About..."
  213.   show background button "Okay"
  214.   if background field "Script" is empty then
  215.     exit mouseUp
  216.   else
  217.     show background button "Script"
  218.     show background button "RemoveScript"
  219.   end if
  220. end mouseUp
  221.  
  222.  
  223.  
  224.  
  225.  
  226. -- part 19 (field)
  227. -- low flags: 81
  228. -- high flags: 0004
  229. -- rect: left=49 top=39 right=320 bottom=446
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 0
  233. -- font id: 4
  234. -- text size: 9
  235. -- style flags: 0
  236. -- line height: 12
  237. -- part name: About...
  238.  
  239.  
  240. -- part 20 (button)
  241. -- low flags: 80
  242. -- high flags: A003
  243. -- rect: left=321 top=265 right=289 bottom=401
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 1
  247. -- font id: 0
  248. -- text size: 12
  249. -- style flags: 0
  250. -- line height: 16
  251. -- part name: Okay
  252. ----- HyperTalk script -----
  253. on mouseUp
  254.   hide background button "Okay"
  255.   hide background button "Script"
  256.   hide background button "RemoveScript"
  257.   hide background field "About..."
  258. end mouseUp
  259.  
  260.  
  261.  
  262. -- part 21 (field)
  263. -- low flags: 81
  264. -- high flags: 0004
  265. -- rect: left=20 top=118 right=225 bottom=473
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 0 / 0
  268. -- text alignment: 1
  269. -- font id: 0
  270. -- text size: 12
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: SaveDialogBox
  274.  
  275.  
  276. -- part 28 (field)
  277. -- low flags: 81
  278. -- high flags: 0002
  279. -- rect: left=145 top=311 right=324 bottom=347
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 0 / 0
  282. -- text alignment: 0
  283. -- font id: 4
  284. -- text size: 9
  285. -- style flags: 0
  286. -- line height: 12
  287. -- part name: Script
  288.  
  289.  
  290. -- part 22 (field)
  291. -- low flags: 80
  292. -- high flags: 0002
  293. -- rect: left=24 top=160 right=179 bottom=467
  294. -- title width / last selected line: 0
  295. -- icon id / first selected line: 0 / 0
  296. -- text alignment: 0
  297. -- font id: 0
  298. -- text size: 12
  299. -- style flags: 0
  300. -- line height: 16
  301. -- part name: TextFileName
  302.  
  303.  
  304. -- part 23 (button)
  305. -- low flags: 80
  306. -- high flags: A003
  307. -- rect: left=280 top=189 right=212 bottom=363
  308. -- title width / last selected line: 0
  309. -- icon id / first selected line: 0 / 0
  310. -- text alignment: 1
  311. -- font id: 0
  312. -- text size: 12
  313. -- style flags: 0
  314. -- line height: 16
  315. -- part name: OK
  316. ----- HyperTalk script -----
  317. on mouseUp
  318.   if background field "TextFileName" is empty then
  319.     exit mouseUp
  320.   end if
  321.   put background field "TextFileName" into save
  322.   open file save
  323.   write background field "Import Text" to file save
  324.   close file save
  325.   put background field "TextFileName" into background field "fname"
  326.   hide background button "OK"
  327.   hide background button "Cancel"
  328.   hide background field "TextFileName"
  329.   hide background field "SaveDialogBox"
  330.   put empty into background field "TextFileName"
  331. end mouseUp
  332.  
  333.  
  334.  
  335.  
  336. -- part 24 (button)
  337. -- low flags: 80
  338. -- high flags: A003
  339. -- rect: left=374 top=189 right=212 bottom=461
  340. -- title width / last selected line: 0
  341. -- icon id / first selected line: 0 / 0
  342. -- text alignment: 1
  343. -- font id: 0
  344. -- text size: 12
  345. -- style flags: 0
  346. -- line height: 16
  347. -- part name: Cancel
  348. ----- HyperTalk script -----
  349. on mouseUp
  350.   hide background button "OK"
  351.   hide background button "Cancel"
  352.   hide background field "TextFileName"
  353.   hide background field "SaveDialogBox"
  354.   put empty into background field "TextFileName"
  355. end mouseUp
  356.  
  357.  
  358.  
  359. -- part 27 (button)
  360. -- low flags: 80
  361. -- high flags: A003
  362. -- rect: left=91 top=268 right=291 bottom=165
  363. -- title width / last selected line: 0
  364. -- icon id / first selected line: 0 / 0
  365. -- text alignment: 1
  366. -- font id: 0
  367. -- text size: 12
  368. -- style flags: 0
  369. -- line height: 16
  370. -- part name: Script
  371. ----- HyperTalk script -----
  372. on mouseUp
  373.   put empty into background field "Import Text"
  374.   put background field "Script" into background field "Import Text"
  375.   hide background button "Okay"
  376.   hide background button "Script"
  377.   hide background button "RemoveScript"
  378.   hide background field "About..."
  379. end mouseUp
  380.  
  381.  
  382.  
  383. -- part 29 (field)
  384. -- low flags: 01
  385. -- high flags: 0002
  386. -- rect: left=1 top=18 right=33 bottom=510
  387. -- title width / last selected line: 0
  388. -- icon id / first selected line: 0 / 0
  389. -- text alignment: 1
  390. -- font id: 0
  391. -- text size: 12
  392. -- style flags: 0
  393. -- line height: 16
  394. -- part name: fname
  395.  
  396.  
  397. -- part 30 (button)
  398. -- low flags: 00
  399. -- high flags: A003
  400. -- rect: left=199 top=1 right=18 bottom=273
  401. -- title width / last selected line: 0
  402. -- icon id / first selected line: 0 / 0
  403. -- text alignment: 1
  404. -- font id: 0
  405. -- text size: 12
  406. -- style flags: 0
  407. -- line height: 16
  408. -- part name: Save as...
  409. ----- HyperTalk script -----
  410. on mouseUp
  411.   if background field "fname" is "untitled" then
  412.     put empty into background field "TextFileName"
  413.   else
  414.     put background field "fname" into background field "TextFileName"
  415.   end if
  416.   show background field "SaveDialogBox"
  417.   show background field "TextFileName"
  418.   show background button "OK"
  419.   show background button "Cancel"
  420. end mouseUp
  421.  
  422.  
  423.  
  424. -- part 31 (button)
  425. -- low flags: 00
  426. -- high flags: 2000
  427. -- rect: left=1 top=19 right=33 bottom=257
  428. -- title width / last selected line: 0
  429. -- icon id / first selected line: 0 / 0
  430. -- text alignment: 1
  431. -- font id: 0
  432. -- text size: 12
  433. -- style flags: 0
  434. -- line height: 16
  435. -- part name: ShowMenuBar
  436. ----- HyperTalk script -----
  437. on mouseUp
  438.   show menuBar
  439. end mouseUp
  440.  
  441.  
  442.  
  443. -- part 32 (button)
  444. -- low flags: 00
  445. -- high flags: 2000
  446. -- rect: left=256 top=19 right=33 bottom=510
  447. -- title width / last selected line: 0
  448. -- icon id / first selected line: 0 / 0
  449. -- text alignment: 1
  450. -- font id: 0
  451. -- text size: 12
  452. -- style flags: 0
  453. -- line height: 16
  454. -- part name: HideMenuBar
  455. ----- HyperTalk script -----
  456. on mouseUp
  457.   hide menuBar
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 33 (button)
  463. -- low flags: 80
  464. -- high flags: 2000
  465. -- rect: left=172 top=304 right=316 bottom=307
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 0 / 0
  468. -- text alignment: 1
  469. -- font id: 0
  470. -- text size: 12
  471. -- style flags: 0
  472. -- line height: 16
  473. -- part name: RemoveScript
  474. ----- HyperTalk script -----
  475. on mouseUp
  476.   put empty into background field "Script"
  477. end mouseUp
  478.  
  479.